home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 33 / Tiger_Disk_033_1996-12_Tiger-Crew-Disk_de_Side_C.d64 / das leben des (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  40 lines
  1. 1 poke 53272,23
  2. 3 rem das leben des brain
  3. 4 rem (w) by peter diehm 92
  4. 5 poke 53280,0:poke 53281,0:print"[147]"
  5. 7 printchr$(14)"":poke 650,255:poke 657,128
  6. 8 rem a pdpd soft produktion 2/92
  7. 10 print"[147]"
  8. 11 gosub20:goto 100
  9. 20 v=53248:fori=0to62:readxx:poke832+i,xx
  10. 21 nexti
  11. 23 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,128
  12. 24 data 3,255,224,1,255,192,0,255,128,0,255,128,0,127,0,0,127,0
  13. 25 data 0,62,0,0,62,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  14. 26 poke v+29,21:poke 53269,1:poke 2040,13:poke v+43,0:pokev+39,7
  15. 27 poke v+0,140:poke v+1,98
  16. 30 return
  17. 100 print"   [196]as [204]eben des [194]rain ! [214]orwort !":gosub103:gosub 106:gosub103
  18. 101 gosub 108:gosub106:gosub108:gosub 103:gosub108:gosub103:gosub108:goto110
  19. 103 print""
  20. 105 printspc(16)"[161][183][170][146]":fori=1to200:next:return
  21. 106 print""
  22. 107 printspc(16)"  [170][146]":fori=1to100:next:return
  23. 108 print""
  24. 109 printspc(16)"[183][163][183][146]":fori=1to240:next:return
  25. 110 printspc(1)"             [208] [204] [207] [208] !
  26. 111 [153]""
  27. 112 [153][166]16)"stop   wait":[129]i[178]1[164]240:[130]
  28. 114 [153][166]1)"str$amit du deine valrwartungen nicht zu
  29. 115 printspc(1)"hoch setzt sage ich dir jetzt schon
  30. 116 [153][166]1)"einmal das das atndventure recht wenig
  31. 117 printspc(1)"mit den gleichnamigen [198]ilm zu tun hat.
  32. 118 [153][166]1)"(NULL)ediglich der erste (NULL)art ist eine atnn=
  33. 120 printspc(1)"lehnung an den [198]ilm !"
  34. 122 printspc(30)"[158]-[212]aste-[146]"
  35. 123 get d$:if d$="" then 123
  36. 124 get d$:if d$="" then 124
  37. 125 poke 53269,0:restore
  38. 126 load"brain ! <=-",8,1
  39. 127 run
  40.